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'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


* 
* 
* 
' * 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
- TRANSFERRED. * 
:* * 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 

* 
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$ 26 ' 
e 
5 27 | 
2 8 
gy 
0 ! 
; 4 } FACILITY: RMS32 index sequential file organization | 
3 33 | i aastracr: 
; $e insert SIDR data record, all index updates 
3 Boas : | 
3 00 ! ENVIRONMENT: 
0038 : ‘ 
3 0039 ! VAX/VMS operating system 
4 0040 : 
4 0041 leo j 
4 R006 
4 004 ! 
4 0044 ' AUTHOR: Christian Saether 
4 0045 : 
4 0046 ' CREATION DATE: 20-JUL-78 13:58 
4 0047 : 
4 nk : 
$ Rep : MODIFIED BY: 
5 $084 ! v03-009 DGB0072 Donald G. Blair 24-Jul-1984 
5 Ba6 : During a root bucket split, the buckets are carefully 
05 i written to disk in a certain order so as to minimize 
54 : the possiblity of file corruption. I needed to fix 
55 ! the error path so that buckets not yet written out — 
2 2$ : to disk at the time of an error are marked as invalid 
5 ! so they aren't written out later to corrupt the file. 
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to be updated, the sg | of the new record (found in keybuffer 2) 
is right-shifted two bytes to make room for the two key 
gonpression verhead bytes, and those bytes are filled in. It 

s also possible that a mu(ti-bucket split occurring at the 
primary gete Level will require the insertion of two new index 
records into the level one index. The key of the second record 
will be found in keybuffer 3, and it too should be shifted two 
bytes and the key compression overhead bytes filled in 
appropriately. This was not being done, and why everything 
worked up to this point I don't know! 


v03-004 TMKO0002 Todd M. Katz 09-Sep-1981 
The symbol IRBSB_SRCHFLAGS is now a word in size. Change all 
references to it. 


ed dd 
RAW—=OSRNVE ARAN OS 
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; 1} 

3 § 1! V03-008 MCNO003 Maria del C. Nasr 15-Mar-1983 

: ¢' 66 : } More Linkages reorganization 

ra 1! V03-007 MCNO002 Maria del C. Nasr 01-Mar-1983 

: e? oe8 : } Reorganize Linkages 

; & 568 1! V03-006 TMKO004 Todd M. Katz 01-Feb-1983 

3 66 BO6 1! Add support for Recovery Unit Journalling and RMS ROLLBACK 
3. 0067 1! Recovery. When an attempt is made to insert a duplicate SIDR 

; & 068 1! into an index for a key of reference that does not allow 

3 9 534 ,: duplicates, before returning a duplicate key error determine 

: 0 ae whether or not the Last element in this SIDR array is marked 

.. O71 1! RU_DELETEd. It is onty necessary to test the last SIDR array 
me. ie 1! element, because any SIDR array for a key of reference that 

. ve > 1} does not allow duplicates that is deleted within a Recovery Unit 
he 0074 1! is in effect “locked by the stream doing the deletion for the 
: Le Bae? : Life of the Recovery Unit. 

; 77 0079 1! If the Last SIDR element in the array is not marked RU_DELETE 
: 78 0078 1! then a duplicate key error is returned as before. Likewise, if 
RE y 0079 1! the Last SIDR element is marked RU_DELETE but an attempt to 

; 0080 1! lock the corresponding primary data record fails because some 
; 81 0081 1! other process has it locked, then RMS concludes that the 

can: 0082 1! Recovery Unit in which the element was deleted has not 

3 7 a : } concluded, and returns the duplicate key error. 

i. ie 0085 1! However, if the Last SIDR element in the array is marked 

>; 686 0086 1! RU_DELETE and RMS is able to lock the SIDR, then RMS can 

s 87 0087 1! conclude that either it is the current stream that did the 

; 88 0088 1! delete within a Recovery Unit (in which case it already has the 
; ww 0089 1! entire SIDR array ‘‘locked’’), or the Recovery Unit in which the 
:; 90 0090 1! element was deleted (by some other process) has successfully 

3 91 0091 1! terminated. In either case RMS may proceed to insert the new 

68 . 0092 1! SIDR. Im the latter case RMS reclaims the entire SIDR before 
Tm. 0095 1! inserting the new SIDR, and of course, in the former case no 

3 oe Ba9¢ : space reclamation is possible. 

; * 0096 1! v03-005 TMKOO003 Todd M. Katz 19-Sep-1981 

; 97 0097 1! Whenever key compression is enabled and a SIDR bucket is to be 
; | «698 0098 ; updated, or index compression is enabled and an index bucket is 
; 1 i 

3 1! 

5 1: 

$ 1! 

3 ,? 

3 1! 

3 7! 

3 1! 

8 zz 

5 > 2 

s 1! 

3 1! 

3 1! 

3 7! 

: 1! 


Add support for prologue SIDRs. This requires only a few minor 
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12-808-1 3b 96:49:2 
modifications to take into account the dif 


f 
of prologue 3 SIDRs from prologue 1 and 2 S$ 
keys maybe compressed. 


AX=11 Bliss-32 V4.0-74 
RMS .SRCIRMSUPSIDX.B32; 


5 

4 

erent structure of 
IDRs, and that their 


KBT0237 Keith B. Thompson 23-Aug-1982 
Reorganize psects 
TMKO001 Todd M. Katz 02-Jul-1981 


Implement the RMS cluster solution for next record positioning. 
Since there is no longer a NRP List to ypeete, do not bother 

to update it. In addition, since RMS will never squish out 
prologue 2 SIDR entries, never call the routine RMSRECVR_SPC 
(delete it) to reclaim SIDR space. Deleted entries will remain 
deleted for prologue 1 and 2. 


MCNOO01 Maria del C. Nasr 25-Mar-1981 
Use macro to calculate key buffer address. 
TMK0001 Todd M. Katz 11-Feb-1982 


After an index bucket has been split, as part of the 
preparation for updating the index level immediatly above 
the current level, clear IRABLIRBSL_VBN_MIDJ. There is a 
possibility that because a new index record must be inserted 
in the next level's index bucket, that index bucket may 
split. If the point of insertion of the new high key value 
resulting from the just split index bucket will be at the 
sel it pe nt of the index bucket vamedsototy above it, and 
if IRABCIRBSL_VBN_MID] is not zero (which it won't be if a 
multibucket split occurred at the data level), the bucket 
at the next level may be incorrectly handled as a two-pass 
multibucket split instead of as a two-pass non-muitibucket 
split. This will result in the corruption of the new index 
bucket. It will contain two identical keys with different 
VBN pointers, the low order ney will have the same VBN 
pointer as the new high order ey of the old bucket, and a 
pointer will be overwritten resulting in an inability to 
randomly access all records below it. 


CDS0001 C Saether ponnup 170" 
Reset CURBDB after release with keep lock, as 
it has changed and become the lock bib. 


PSK0003 P S$ Knibbe penne tee 
Add support for splitting index buckets. 
PSK0002 P S Knibbe 29-Jul-1981 


Remove support for growing prologue three 
compressed indexes. 


PSK0001 P S$ Knibbe 14-Jun-1981 
acd support to RMSINS_IF_FIT for prologue three 


es. 
Add support to RMSINSS_OR_IDX for UKEY_ONLY 


CDS0081 C D Saether 26-Feb-1981 22:00 
Check for errors on split_em. 
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i v012 REFORMAT DM Walp 24-JUL-1980 
v011 CDS0080 C D Saether 27-F EB-1980 
Don't mark buffers invalid om errors. 
v010 CbDS0072 C D Saether 15=-JAN-1980 14:50 


Don't zero or update nrp List unless ppt iicing. (also 
corrects bug calling nrp routines with uninitialized value). 


REVISION HISTORY: 


Wendy Koenta 12-OCT-78 14:51 
X0002 = CHANGE NRP STUFF 


Wendy Koenig. 24-0CT-78 14:03 
X0003 = MAKE CHANGES CAUSED BY SHARING CONVENTIONS 


Christian Saether, 12-DEC-78 20:40 
X0004 = handle case where SIDR pointer being added to deleted record 


Christian Saether, 14-DEC-78 17:39 ; 
xX 5 - feces ee forces record to be deleted unless positioned for insert 
on i 


wendy Koenig 25-JAN-79 11:26 
X0006 = GET RID OF SETTING VALID 


Christian Saether, 1-july-79 11:30 
X0007 - set irb$v_dup when dupes seen on alternate 


Christian Saether, 26-NOV-79 12:10 
0008 = don't force write thru if Links don't change 


Ron Schaefer, 11-JAN-80 16:50 
0009 - clear deleted-sidr flag on each call to RMSSQUISH_SIDR 


DOODDOODOO ODDO WDWODWDDDOMONNAANS 


LIBRARY ‘RMSLIB:RMS'; 

REQUIRE ‘RMSSRC:RMSIDXDEF'; 
Define default PSECTS for code. 
PLIT = RMSRNS3(PSECTCAT 
Linkages 

LINKAGE 
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Local Linkage. 


RLSINS_IF_FIT = JSB ( 
: GLOBAL (R_BKT_ADDR, R_RAB, R_IRAB, R_IFAB, R_REC_ADDR, 
R-IDX~DFN); 


Forward Routines. 
FORWARD ROUTINE 


RMSINS_IF_FIT 


External Routines. 
EXTERNAL ROUTINE 
RMSALLOC 


BK 
RMSCSEARTH_TREE 
RMSEXT_ARRY_RFA 
RMSGETAXT_ARRAY 
RMSINS_REC 
RMSMOV 
RMSNEW_ROOT 
RMSQUERY PROC 
RMSRECORD_SIZE 
RMSRLNERR 


RMSSPLIT_EM 
RMSUPD_PCG 


: RLSINS_IF_FIT; 


: RLSRABREG-7; 
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63 ZSBTTL "RMSINSS_OR_IDX' 

Ge GLOBAL ROUTINE RMSINSS_OR_IDX : RLSRABREG_567 = 

6 144 

6 0 : 

68 ! FUNCTIONAL DESCRIPTION: 

9 Call from level 0 to insert SIDR record and perform all neccessary 


index updates, or from level 1 on primary key to update index 


WNNWIAWWWIinonornore 


4 $ 1 ; 
3 1 : 
3 8 1 3 
; 1 3 
; 0 1 : 
: ts : 
; 1! : 
H : 2 3 
; 271 4 1! i 
; af 0335 1 ! CALLING SEQUENCE: H 
; fF p § : RMSINSS_OR_IDX() : 
; 275 & 1 ! INPUT PARAMETERS: 3 
; 276 0339 1! NONE : 
; en 0340 1! 3 
3 78 0341 1 =! IMPLICIT INPUTS: : 
: 279 bes 1! RAB = ointer to internal RAB 3 
> 280 0343 1! C LOCK_8DB ] - BDB of bucket to access if at level 1 on primary 3 
; 281 0344 1! key and LOCKABOVE used on position for insert 3 
3 Bi 0345 1! otherwise 0 3 
; 28 0346 1! C CURBDB ) - locked BDB of level 0 if pees key. This is 3 
; 284 0347 1! released after successfully positioning at current : 
; 285 0348 1! level 1. For SIDR insert this is zero on entry ; 
; 286 0349 1! causing search down alternate index from root. F 
3; eer 0350 1! f STOPLEVEL_] = 1 for index update primary key, 0 for SIDR insert ; 
; 288 0351 1! SPL_BITS ] = status flags from primary data level split, 0 for 3 
; 289 beg 1! SIOR inser 3 
: 290 0353 1! BIG_SPLIT - more than two bucket split : : 
5 evi 0354 1! C VBN_LEFT ] - VBN of Left hand bucket for primary key index 3 
3 536 0355 1! updote $ 
; 9338 g@ VBN_RIGHT J] - VBN of right bkt prim key if present 3 
; 294 0357 1! ‘ VBN_MID }] = middle bkt VBN in 3-4 bkt pris key split case F 
3 344 0358 1! SRCAFLAGS J = search flags for CSEARCH_TREE 3 
: 296 0359 1! POSINSERT = set to cause position for insert F 
; 297 0360 1! X_DFN = pointer to index descriptor for key of reference 3 
; 298 0361 1! DOPKEYS J] = duplicate keys are allowed if set other fields as : 
3 $30 b308 : } used by routines called by this routine : 
; 301 0364 1 ! OUTPUT PARAMETERS: 3 
g 4 0365 1! NONE 3 
; 30 0366 1! 3 
; 04 0367 1 ! IMPLICIT OUTPUTS: 3 
: 305 0368 1! NONE 3 
3 06 8392 . 3 : 
: 30 70 1 | ROUTINE VALUE: | : 
: 308 0371 1! SUC = success ‘ . : 
F 44 B08 ! : any error codes from allocation or get bucket routines : 
oe $374 1 ! SIDE EFFECTS: | 3 
i \¢ Oef? 1 NONE : 
3 14 §378 1 !-- 3 
s 315 378 1 : 
3; 316 79 BEGIN 3 
s 317 80 : 
; 318 81 LITERAL 3 
; 319 382 TRUE = 1, 3 
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; 9 3 FALSE = 0; | 
P) | 
; § 5 EXTERNAL REGISTER 
; $ COMMON _RAB_STR, 

s 4 : REC_ADOR STR, 

; 325 g R-IDX-DFN_STR 

; $ 0 89 R-BKT-ADDR_STR; 

: 328 0391 GLOBAL REGISTER 
3 9 0 8 R_BDB_STR; 

$ 0 039 

3 1 8 94 OCAL 

3 ¢ 95 ERRSTATUS, 

3 3 0396 KILL_CUR; ! Used only for error path -- true if we are to | 
: $3¢ 0397 ! throw away the updated contents of IRBS$L_CURBDB; 

3 359 0398 2 ! false if we should write it to disk. 

; 336 0399 

; 357 0400 MACRO 

3 $35 0401 

; 39 4 44 EXONERR (CALL) = 

; 340 M 040 § BEG 

s 41 M 0404 IF NOT CERRSTATUS = (CALL)) 

; 4e M0405 2 THEN EXITLOOP | 
; 34 0406 2 END %, 
3; «344 0407 2 

3; «345 0408 2 ! This macro is used to handle errors after we have dirtied the 

; 346 0409 2 ' bucket being split but before we have written it to disk. In 
; es pete $ such cases, we want to throw away the dirty buffer. 

; 349 M O41g 2 EXONERR_KILL_CUR (CALL) = 

; 350 M0413 2 

s Sel M 0414 5 IF NOT (CERRSTATUS = (CALL)) 

3 326 M 0415 THEN 

3 39 M0416 2 (KILL_CUR = TRUE; 

3; 354 M0417 2 EXITLOOP) 

3s 355 0418 2 q; 

3; 356 0419 2 : ; | 
3 Sor 0420 2 ! This routine is constructed as one while loop which is left via a return 

3 Joe 0421 2 ! when no further index updates are neccessary 

3 SoF Bass 2 ! 

3 #09 0423 2 

3; 361 0424 2 WHILE 1 

3 $06 0425 DO 

H 6 bes$ BEGIN 

3; 364 Be 

; 365 428 ! By default, we save the curbdb contents on an error. 
2 367 be ; KILL_CUR = FALSE; 

; 368 0431 ! if LOCK_BDB is nonzero then it was not released on the way down the 
; 369 04 ¢ ' tree and no further action is needed otherwise we must force a search 
: 70 04 ! from the root | 
: 371 04 4 \ 
j 2 oer 

.) ar. 04 $ IF (BDB = .IRABCIRB$L_LOCK_BDB]) NEQ 0 

3: 374 043 THEN 

3: 375 0438 4 BEGIN 

: 76 0439 4 


Be Bee Be Oe Be BeBe Se See Se Se Se Se Se Se Se SH Se Se Se Se Se Ge Se Se Se Se Ge ae SH Se Se Se Se Se Se Se Se ee Se Se Se Se ee ee SH Se Se Se Se Se Sees eae 
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; vr rr ; : Swap current and lock bdb's and set up REC_ADDR. | : 

: 379 442 4 REC_ADDR = .BDBCBDB$L_ADDR] + BKTSC_OVERHDSZ; | : 

; 380 4435 4 RABE {ROSL_LOCK Boe. = , IRABCIRBSL_CURBDB); : 

; 381 0444 4 IRABLIRBS$L_CURBDB) = .BDB; ‘ 

; B¢ 0445 4 END 3 

3; Se 044 ELSE ; 

: 384 044 | 3 

: 385 0448 ' Current bdb becomes lock bdb to be released later and curbdb is : 

; 386 beep ! zeroed to force search from root. 

s Ser 450 ! 

; Se bees 4 BEGIN 

; 33 4 § 4 IRABCIRBSL_LOCK_BDB] = .IRABCIRBSL_CURBDBI; 

; 390 04535 4 IRABCIRBSL_CURBDB) = 0; 

; 391 0454 END; 

3; 3 0455 

: Br bees EXONERR(RMSCSEARCH_TREE()); 

H a2 Bees BKT_ADDR = .BBLOCKC.IRABCIRB$L_CURBDBJ, BDBSL_ADDRI; 

: 397 0460 3 ' REC_ADDR is now a to the position of insert of the new record. 

3 $05 0461 ; ' If This is a prologue three bucket with compressed key records, then 

; 399 oce$ ! then shift the contents of keybuffer 2 down two bytes so that 

: 400 046 ; ' all key buffers look alike. 

; 401 0464 ! 

; 40 0465 5 IF ((.BKT_ADDRCBKT$B_LEVEL] EQLU 0 

; 40 0466 5 D 

: 404 0467 5 . IDX_DFNCIDX$V_KEY_COMPRI) 

: 405 0468 4 OR 

; 406 0469 5 (.BKT_ADDRCBKT$B_LEVEL] NEQU 0 

; 407 0470 5 N 

: 408 0471 4 . IDX_DFNCIDX$V_IDX_COMPRI)) 

: 409 0472 3 THEN 

; 410 0473 4 BEGIN 

3 6411 0474 4 

: 412 0475 4 CRO 

> 414 0477 4 FRNT_CMPR = 1,0,8,0 %; 

: 415 bare 4 

: 416 04 4 LOCAL 

3; 417 0480 4 BUFF : REF BBLOCK; 

; 418 0481 4 

3; 419 0482 4 BUFF = KEYBUF_ADDR(2); 

> 420 0483 4 RMSMOVE (.IRABLIRBSB_KEYSZ), .BUFF, .BUFF+2); 

> 421 0484 4 BUFF CKEYLEN) = .IRAB CIRBSB_KEYSZ); | 

: 4¢ 0485 4 BUFF CFRNT_CMPR) = 0; 

; 42 0486 4 ; 

3: 424 0487 4 ! If the level 1 index is to be updated with two index records 

: 425 0488 4 ! because a multi-bucket split has taken place at the riers data 

: 426 0489 4 ' record, then the key of the second index record (in keybuffer 3) 

3; 427 0490 4 ! should also be shifted down two bytes and the size and front | 

; 428 0491 4 : ronprere ion count filled in so that all keybuffers continue to 

: $$5 492 4 ' look alike. 

3: 430 493 4 ! 

3 «6431 494 4 IF .JRABCIRB$V_BIG_SPLIT) 

; $38 0495 4 THEN 

: 45 0496 5 BEGIN 


j 
— 
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yoe-080 RMSINSS_OR_IDX 127808-1 382 96:49:22 RMS  SREIRASUPSIDX B32, ° (2) 
; 434 497 BUFF = KEYBUF_ADDR(3); 
; 4355 138 RMSMOVE (. IRABCIRBSB watt? BUFF, .BUFF+2); 
: 436 49 BUFF CKEYLEN] = .IRAB CIRBS6_KEYSZ; 
s 4657 500 BUFF CFRNT_CMPR] = 0; 
: 438 B28) 4 END; 
; 439 206 END; 
; 440 b26 
3: 6441 504 ! If RMS is peg ts renrns to insert a SIDR and a duplicate was encountered 
: tts Ben? ! during positioning then investigate further as to whether this does 
3 tak beo or doesn't represent an error. 
3; 445 Bene IF .JRABCIRBSB_STOPLEVEL] EQL 0 
3; 446 509 THEN 
: 447 0510 4 BEGIN 
; 448 05171 4 
3; 449 o248 4 IF .IRABCIRBSV_DUPS_SEEN] 
; 450 0513 4 THEN 
3: 451 0514 4 
; 426 0515 4 ! If duplicates were seen and this key of reference does not 
; 45 0516 4 : allow duplicate keys then this will represent an error unless 
; 454 0517 4 ! all the elements in the array were deleted within a Recovery 
; 455 0518 4 ! Unit that has since terminated successfully or ¥: the current 
: $28 b218 7 stream whose process is still within a Recovery Unit. 
; 458 0521 4 IF NOT .IDX_DFNCIDX$V_DUPKEYS) 
3; 459 8258 4 T 
; 460 05 5 BEGIN 
; 461 0524 5 
; 46 0525 5 OCAL 
; 46 0526 5 BEG_OF _SIDR, 
3 464 0527 5 END_OF SIDR, 
>; 465 0528 5 LAST_SIOR : REF BBLOCK; 
: 466 0529 5 
; 467 0530 5 ! Position to the Last element in the current SIDR array. 
; 468 0531 5 ! It is only necessary to determine the status of this 
; 469 be3§ 5 ! element in order to determine whether or not the 
: rth b28z : } insertion of this duplicate represents an error or not. 
3; 472 0535 5 END_OF SIDR = .REC_ADDR; 
3 473 0536 5 RECTADDR = .IRABCIRBSL_LST_RECI; 
3 474 0537 5 BEG_OF SIDR = .REC_ADDR; 
: 475 0538 5 REC-ADBR = RMSSTDR_FIRST (0); 
3; 476 0539 5 
3 477 B249 5 
3; 478 541 6 BEGIN 
; 479 B26 6 LAST_SIDR = .REC_ADDR; 
: 480 B26 6 RMSGETNXT_ARRAY (J; 
; 481 544 g END 
; 48 0345 UNTIL .REC_ADDR GEQA .END_OF_SIDR; 
: 484 0547 3 ! If the last element in the current SIDR array was deleted 
3: 485 0548 5 ! within a Recovery Unit, then RMS may still be able to 
; 486 0549 ! insert this new element provided it would be able to 
; 487 550 ! Lock the primary data record the SIDR element points to. 
; 488 551 : Being able to lock the record will indicate either that 
3; «489 226 ' the ecevery Unit in which the SIDR element was deleted 
; 490 055 ! has successfully terminated, or that it was the current 
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55 ? 
744 RMS. SRCIRMSUPSIDX.B32; 


stream that deleted the element within a Recovery Unit 
(which oy still be active). In either case, RMS may 
consider th 

in the array would then be deleted, RMS can proceed to 
insert the new element. 


e element to be deleted, and as all elements 


LAST_SIDRCIRC$V_RU_DELETE] 
BEGIN 
LOCAL 

TEAP_STATUS, 


! Extract the RFA out of the SIDR and determine without 
! waiting the lock status of the corresponding primary 
data record. 


REC_ADDR = .LAST_SIDR; 
RMSEXT_ARRY_RFA TVBN, ID); 
IRABCIRB$V_NO_Q_WAITS = 1; 
i 
i 


If RMS is able to lock the corresponding primary data 
record, then it may treat the SIDR array element as 
being deleted and proceed to insert the new element. 


1p (TEMP_STATUS = RMSQUERY_PROC (.VBN, .ID)) 


If the Last element was deleted within another 
process's Recovery Unit, or if the current 
process is not ina mopovers Unit, then RMS may 
perform some space reclamation before insertin 
' the new element. Space reclamation will consis 
of deleting the entire SIDR array. 


- TEMP_STATUS<0,16> EQtU RMSSUC() 


0 
NOT .IFABCIFBSV_RUPJ 
THEN 


BEGIN 
RMSSQUISH SIDR (0, .BE 
IRABCIPBS$V_DUPS SEEN) 
RAB IRB$SV~DUP_REY) = 


! 
i 
! 
iF 


F_SIDR); 


G_0 
= 0; 
0; 


! Otherwise, RMS can not perform any space 
! reclamation, and instead positions to the 
insertion point of the new element. 
ELSE 
RMSGETNXT_ARRAY() 
! If RMS is not able to lock the primary data record 


! that the last SIDR element points to then RMS can not 
' consider all the elements in the SIDR array to be 
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RMSUPSIDX 18-Sep-1984 96:10:22 AX-11 Bile -32 v4.0-742 
v04- RMSINSS_OR_IDX 14-Sep-19 2:01:44 RMS. SRCIRMSUPSIDA.B32;1 
; 548 0611 6 : deleted. In this case RMS can not insert this new 
; 549 \¢ 6 ' new element, but instead returns a duplicate key 
3 29 13 6 ! error. If RMS were to insert the SIDR and the 
3 1 14 6 : pecorery Unit failed, then after Recovery Unit 
3 26 0615 6 ' ROLLBACK this SIDR array would have two non-deleted 
2, 55 Be18 6 ' elements even though this key of reference does not 
> 554 0617 6 ! allow duplicates. 
; ¥ pei8 6 ! 
$ 6 19 6 ELSE 
: War 0620 6 ERRSTATUS = RMSERR(DUP); 
; 558 0621 6 END 
; 223 06 ¢ ? 
; 360 06 ! If the Last element in the current SIDR array was not 
; 361 0624 6 ! deleted within a Recovery Unit, then RMS can not insert 
: o06 0625 6 ! this new element and instead must return a duplicate key 
; 3 0626 6 ' error. 
; 564 0627 g ' 
3 369 0628 ELSE 
; 228 Be ; : ERRSTATUS = RMSERR(DUP); 
; 568 0631 6 IF .ERRSTATUS<0,16> EQLU RMSERR(DUP) 
; 569 boss 5 THEN 
; 5706 063 ; EXITLOOP; 
; STi 0634 END 
3 a6 0635 5 
s Of 063¢ 5 ! As this key of reference allows duplicate keys, and a 
: 576 ot 5 ' duplicate was seen, save that information so that the proper 
3 373 0638 5 ' success status may eventually be returned. 
3; 37 0639 5 ' 
gs. Orr 0640 4 ELSE 
: 37 0641 4 IRABCIRB$V_DUP] = 1; 
: Sr Rete 4 
; 580 0645 4 END 
oe} 0644 4 
: 256 0645 4 ! If this wasn't position to level 0 then release lock on level 
s 38 0646 4 ' below after positioning to point of insert above. 
; «584 0647 4 ! 
s 385 0648 SE 
; 586 0649 RELEASE (IRABCIRBSL_LOCK_BDB)); 
; 387 0650 
; 588 0651 BDB = .JRABCIRBS$L_CURBDB); 
; «4589 Ro3¢ BOB[BDB$V_DRTJ = T; 
; 590 065 ; ag 
3. 0654 ' Now try to put the record into the existing bucket - success if it 
3 238 0655 ' fits. 
; 9 RO28 : 
; 59% 065 IF RMSINS_IF_FITO 
3; 595 0658 
; 298 0659 4 BEGIN 
; 6 U9 Reet 4 ; 
; 2 1 4 ! Record fits without s Liteing so release lock bdb (there is 
; 599 R666 ‘ ! one only at level 0 when lock above was used on positioning) 
: rey} : write thru bucket and return. 
; one 5 4 LOCAL 
; 60 4 FLAGS; 
; 604 4 
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2 


; $8? 6 : FLAGS = 0; 

; ¢ 7 4 IF (BDB = .JRABCIRBSL_LOCK_BDB]) NEQ 0 

; 608 71 4 THEN 

; 609 7 BEGIN 

; 610 67 IRABCIRBSL_LOCK_8DB) = 0; 

; 611 74 RMSRLSBKT (OD); 

5 elg 75 4 END; 

3 661 6 4 

; 614 0677 4 BDB = .JRABCIRBSL_CURBDB); 

> 615 678 4 IRABCIRBSL_CURBDB] = 0; 

; 616 679 4 RETURN RMSRLSBKT(.FLAGS); 

3 $1 680 4 

; 618 0681 END; 

; 619 ee 

; 620 068 ' Allocate a new bucket to split into. 

; 621 0684 ' 

3 ? § pon? EXONERR(RMSALLOC_BKT()); 

> 624 0687 : 17 oe y+ was used and we are doing a SIDR data level split there 
; 625 0688 ! are now 3 buffers in use. 

3; © $ 0689 : 

. 6 0690 BDB = .IRABCIRBS$L_NXTBDB); 

; 628 0691 

3 668 069 ! Split the bucket !!! 

; 630 069 ‘ 

; 631 0694 4 IF NOT (ERRSTATUS = RMSSPLIT_EM()) 

; 632 0695 3 THEN 

; 633 06 4 BEGIN 

: 634 0697 4 BOB CBDBSV_VAL] = 0; 

; 655 0698 4 IRAB CIRBSC_NXTBDB) = 0; 

; 636 0699 4 RMSRLSBKT (OJ; 

; 637 0700 4 BBLOCK [.IRABCIRBSL_CURBDB], BDBSV_VAL] = 0; 

: 638 0701 4 EXITLOOP 

: ba $705 ; 

3 rot Rohe Now save the VBN of the new bucket for next level update. 

5 $0 B08 IRABCIRB$L_VBN_RIGHT] = .BDBCBDB$L_VBN); 

> 644 070 rath gy et! RT)"= 1; 

3 ot 444 IRABCIRBSC_NXTBDB) = 0; 

3; 647 0710 ! We must clear VBN_MID for the next level update as a precaution. 
; oe ort ! If the current index bucket split was for a multibucket data level 
: 64 ar : split the update at the next level could be done incorrectly if 
: 650 34 i that index bucket split and the point of insertion of the new key 
; 03) ay was at the split point, and if this VBN cell is not zero. 

3 638 Org IRABCIRBSL_VBN_MIDJ = 0; 

3 6635 71 ! Write the new bucket. 

3 026 71 : 

; tH z EXONERR_KILL_CUR‘RMSRLSBKT(RLSSM_WRT_THRU)); 

; 659 ? ¢ ! If this was a continuation bucket then no index update is neccessary 
3 +4 4 ? so release lock bdb if any and write out current bdb. 


—_—— 


! This is a root bucket which split so Link in new bucket make new 
root, Ak non root out of old bucket. 


BEGIN 
BKT ADDRCBKT$V_ROOTBKT) = 0; 
EXONERR_KILL _COR(RMSALLOC _BKT()); 


! Restore next bucket Link of a Nog bucket that got clobbered 
; when we Linked in a bucket for the new root. 


BKT_ADDRCBKTSL_NXTBKT] = .IRABLIRBS$L_VBN_RIGHT]; 
Set up BDB and BKT_ADDR for NEW_ROOT. 

B08 = ,IRABCIRB$L_NXTBDBI; 

BKT_ADDR = ;RDBLBDBSL ADDR); 

RMSREW_ROOT () 

Write out and release new root. 

aperepasy RTI = 


IRB$C_N pBi's 
EXONERR PKICL TER ERMSRESBKT(RLSSM _WRT_THRU)); 


RMSUPSIDX 16-90 -1984 10:55 AX-11 Bliss-32 V4.0-742 
v04=- RMSINSS_OR_IDX 1a-Sep-19 4 96: 40:2? ERMS. SRCIRMSUPSIDX.B32:1 
66 725 ; IF .JRASCIRB$V_CONT_BKT] 
66 7 § THEN 
664 7 BEGIN 
665 728 
068 729 LOCAL 
66 730 FLAGS; 
66 731 
rg § FLAGS = RLSSM_WRT_THRU; 
671 734 IF (B0B = .JRABCIRB$L_LOCK_BDBJ) NEQ 0 
re , 3 THEN RABCIRAS LOCK_BDB) = 0; 
ore f ‘ RMSRLSBKTCOT) « 
67 739 BDB = Th fore CURBDB); 
67 74 IRABCIRBS$L_C 
678 74 RETURN RMSRLSBRT C. FLAGS): 
679 74 
680 74 END; 
681 74 
68 74 ' Set up BDB and BKT_ADDR for new root code if taken or Pare n 
68 74 ! CURBDB if not and VBN_LEFT for next pass, i.e., the index update or 
ret: i ; new root generation. 
686 74 BDB = . IRABCIRB$L_CURBDB); 
687 75 BKT_ADDR = .BDBCBDBSL ADDR; 
688 es IRABCIRBSL_VBN_LEFT] = .BDBCBDBSL_VBN); 
ont fe IF .BKT_ADDRCBKT$V_ROOTBKT) 
69 75 -BKT_ADDRCBKT$B_LEVELJ] EQL - IDX_DFNCIDX$B_ROOTLEV] 
69 75 THEN 
694 75 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
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V04-000 RMSINSS_OR_1DX 107 388-13be 13:bfi22 fRMS . SRC RMSUPSIDX .B32; 


Update all relevant prologue information. 


~ 
—s 
o 
Ooo 
I~ 
Oo 0D 
wr 


: 4 

: 720 4 : 

; f 1 7 : ? EXONERR_KILL_CU®(RMSUPD_PLG()); 

: f 5 OF § : Now write out original root bucket. 

: 25 788 4 BDB = .JRABCIRBSL_CURBDBI; 

ee $ 0789 4 IRABCIRB$L_CURBDBI = 0; 

Re 0790 4 RETURN (RMSRLSBKT(RLS$M_WRT_THRU)); 

; 728 0791 4 

; 729 8738 END; 

; 7350 144 

eee) 794 ! Write out current BDB keeping lock on it until positioned to level 
3 f ¢ 0598 } above on index update. 

; 734 P 0797 EXONERR‘RMSRLSBKT(RLSSM _&?T_THRU 

; 735 P 0798 OR 

Be 0799 RLSS$M_KEEP_LOCK)); 

: ree Bact IRABCIRBS$L_CURBD24~= .BDB; 

; 739 44 H IRABCIRBSB_STOPLEVEL] = .IRABCIRBSB_STOPLEVEL] + 1; 
; 740 080 IRABCIRB$W_SRCHFLAGS) = IRBSM_POSINSERT; 

3 741 0804 3 IRABLIRB$B_SPL_BITSJ = 0; 

: 742 0805 2 END; ! end of WHILE Loop 

3; 743 0806 2 

: 744 0807 § ! This is the error code to release LOCK_BDB and CURBDB if they 
3 re Bane § are non-zero. This code is only executed on errors. 

: 747 0810 2 IF (BDB = .IRABCIRB$L_LOCK_BDBJ) NEQ 0 

: 748 0811 ¢ THEN 

3; 749 Bais (IRABCIRBS$L_LOCK_B8DB) = 0; 

; 750 0813 2 RMSRLSBKT (O03); 

s 1 0814 2 , 
gs se 0815 2 ! If .kill.cur is true, we call release-no-error to pitch the 
:. fos 0816 2 ! dirty contents of the curbdb buffer, else we call release-bucket 
3 eee baie § to release the buffer but save the contents. 

s 36 0819 2 IF (BDB = .IRABCIRBS$L_CURBDB]) NEQ 0 

3 for 0820 ¢ THEN 

: 758 0821 BEGIN 

3; 759 BaS6 3 IRABCIRB$L_CURBDB] = 0; 

: 760 0825 3 IF .KILL THEN 

; 761 0824 3 RMSRCNERR(0) 

; 66 4 5 EL 

: 76 8 § RMSRLSBKT(0); 

: 764 08 END; 

: 765 0828 

; 66 4 RETURN .ERRSTATUS; 

3; 767 0830 

: 768 0831 1 END; 
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RM3UPS IDX 18-36 =1984 02:10:55 AX-11 Bliss-32 V4.0-742 Page 15 
V04= RMSINSS_OR_IDA 1a-sep-19 4 96:49:22 RMS. SREIRMSUPS IDX. B52 9° 02) 
.EXTRN RMSGETNXT_ARRAY 
-EXTRN RMSINS_REC, RMSMOVE 
-EXTRN RMSNEW-ROOT, RMSQUERY_PROC 
-EXTRN RMSRECORD_SIZE, RMSRLNERR 
-EXTRN RMSRLSBKT; RMSSIDR FIRST 
-EXTRN RMSSQUISH_SIDR, RMSSPLIT_EM 
-EXTRN RMSUPD_PLG 
.PSECT RMSRMS3,NOWRT, GBL, PIC.2 
1C BB 00000 RMSINSS_OR_IDX:: 
PUSHR  #*M<R2,R3,R4> : 0327 
SE 18 ¢2 00002 SUBL 2 34 ; 
08 AE 20 Ad SE 00005 MOVAB 32(R9), 8(SP) + 0443 
6E D4 OOO0A 1S: CLRL KILL Gr + 0429 
50 0084 C9 9E 0000C¢ MOVAB 132(TRAB), RO + 0436 
54 60 00 00011 MOVL (RO), BDB F 
OF 13 00014 BEQL 2$ ; 
56 18 AG OE C1 00016 ADDL3 #14, 24(BDB), REC_ADDR + 044 
60 08 BE 00 0001B MOVL a8 (SP), (RO) + 044 
08 BE 54 DO OOO1F MOVL  BDB, a&(SP) > 04464 
07 11 00023 BRB 3$ + 0436 
60 08 BE DO 00025 2$ MOVL  a8(SP), (RO) > 045 
08 BE b4 00029 CLRL  a8(SP) > 045 
00006 30 0002C 3$ BSBW § RMSCSEARCH_TREE + 0456 
04 AE 50 DO 0002F MOVL RO, ERRSTATUS ; 
03 04 AE a 00033 BLBS  ERRSTATUS, 4$ ; 
022k 1 00037 BRW 29$ ; 
50 20 AD DO OOO3A 4$ MOVL  32(IRAB), RO : 0458 
55 18 AO DO 0003E MOVL 24(RO), BKT_ADDR : 
0C AS 95 00042 TSTB ~=—-: 12 (BK RJ + 0465 
07 12 00045 BNEQ 5$ : 
07 1c OA? 06 £0 00047 BBS #6, 28(1DX_DFN), 6$ > 0467. 
47 13 0004C BEQL 7$ + 0469 
42 1c =A? 03 EI OO04E S$: BBC #3, 28(IDX_DFN), 7$ : 0471. 
51 00B4 CA %C 00053 6$: MOVZWL 180(IFAB), “BUFF + 0482 
60 AI CO 00058 ADDL2 96(IRAB), BUFF : 
02 Al SF 0005C PUSHAB 2(BUFF) : 0483 
51 DD 0005F PUSHL BUFF : 
7E 00A6 C9 9A 00061 MOVZBL 166(IRAB), -(SP) : 
00006 30 00066 SBW  RMSMOVE : 
5E 0c CO 00069 ADDL2 #12, SP ; 
61 00A6 C9 9B 0006C MOVZBW 166(IRAB), (BUFF) > 0484 
1F 44 Ad 02 €1 90071 BC Lf 68(IRAB), 7$ > 0494 
50 00B4 CA 3C 00076 MOVZWL 180(IFAB), RO > 0497 
51 60 B940 3& 00078 OVAW @a96(IRAB)(CROJ, BUFF ; 
02 Al 9F 00080 PUSHAB 2(BUFF) > 0498 
51 DD 00085 PUSHL BUFF ; 
7E 00A6 C9 9A 00085 MOVZBL 16641848), -(SP) : 
00006 30 O008A SBW sa RMSMOVE : 
SE 0c CO 0008D ADDL2 #12, SP ; 
61 00A6 C9 98 00090 MOV7BW 196 {1RAB) (BUF F ) > 0499 
41 AD 9 0095 7$: TSTB 65(1RAB) > 0508 
03 13 00098 BEQL 8$ ; 
008E 31 O009A BRW les ; 
44 AD 95 0009D 8$ TSTB  68(1RAB) > 0512 
03 19 000A0 BLSS 6-«O9$ : 
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SOR "AST SIDR 
SCE TNX f_ARRA 
C_ADDR, “END OF SIDR 


#5, (LAST_SIDR), 13% 
LAST _SIDR> REC_ADDR 
vON 
a pean 

* 7(IRAB) 

. Re 

ven, Rt PROC 
TEMP_STATUS, “13s 
TEMP STATUS. #1 


#2, 162(1FAB), 12% 
BEG_OF_SIDR 


S = 
RMS$SQUISH_SIDR 
#8, SP 
#32769, 67(1RAB) 
RMSGETNXT_ARRAY 
#34028, ERRSTATUS 


ERRSTATUS, #34028 
17$ 


m—™ AMMIMEAOO 


iS2tieaa, BDB 


2$ 
RMSALLOC_BKT 
RO, ERRSTATUS 
ERRSTATUS, 19% 


RMSINSS_OR_IDX 


04 
OA 


OA 


008C 


OA 


04 
4G 


0088 

0D 
15 
0D 
04 
08 


OA 


04 


04 


WOOWOOCOOS FWDOOCCOOCSCO FN “000-9 FOOCO£ FWO0O— DO00S FF WO FOOOL FF WOOO 


MOVES OWS FOWT SOMO WO OM O99 $CIT FV OWI SO -GOMMIOWUO CVO OOWOOCOWOVC@OmMmowso 


PONIN 3 2 |] —QOCO TN BN MMMMOVVTVOFMOOOOWWWIVIWrr YP FP O;WOOODO 
COOL 9 OO WS ™ BD AIT OU SM BS OWN WL OM OM OVI ON BB POMW™OPOW™ 


16 
=“Sep-1984 02:10:55 AX-11 Bliss-32 V4.0-74 
735p-1 382 98:4 744 tRMS «SRC RMSUPSIDX.B32; 


=( 
RMSRLSBKT 
#4, § 
32C1RAB), RO 
a, 10(R6) 
8(BDB), 140(IRAB) 
ie, 10(BDB) 
(IRAB) 

144 (I RAB) 
#2 
RMSRLSBKT 
#4, SP 
RO, ERRSTATUS 
ERRSTATUS, 24$ 

#4, 68(IRAB), 23$ 
#2. FL 

132(IRAB), BDB 

1 2 (1RAB) 
RMSRLSBKT 
#4, SP 

32(1RAB) , BDB 

2( RAB) 
6S 


oa 


TIRAB) 
#1, 13(BKT_ADDR), 28% 
12(BKT_ADDR), 21(1DX_DFN) 


RMSRLSBKT 
#4, SP 

RO, ERRSTATU 
ERRSTATUS, 25% 
RMSUPD PL 

RO ERRSTATYS 
ERRSTATUS, 26$ 


SESH e Se Oe Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Be Be Be Be Be Se Be Be Se Se Be Se Be Be Se Se Se Be Se Se Se Se Se Se Se Be Se Be He Be Be 


0784 


3; Routine Size: 675 bytes, Routine Base: 


ot tS) Na 1 
v04- RMSINSS_OR_IDX 1 
6E : 2 C 258: 
. ay TP Obs 
20 9 Bo BOSH 
z. 86 90088 
00006 A 27$: 
5E 4 f 
8 1 4 
8 ge 42 28%: 
00006 30 4 
5E 4 CO 00247 
04 AE 0 4 8 4A 
16 04 A 3 4 
08 AE 20 A 3 025 
08 BE 54 D + 5 
41 AD 96 0025B 
42 A9 01 B0 0025 
44 AD 94 0026 
FDA2 31 0026 
54 0084 c9 09 0268 29%: 
og 13 0026D 
0084 5 04 0026F 
E Be 00 R 
00006 30 0027 
5E 04 CO 00278 
54 20 Ag 0 00278 30$: 
18 13 0027F 
20 AJ D4 88 81 
OA of ES 00284 
5 D4 00287 
00000000G EF 16 00289 
08 11 0028F 
7E Be 00291 31$: 
00006 30 ORS ar 
5E 04 CO 00296 
50 04 AE D0 00299 32 
5E 18 CO 00290 33 
1C BA 002A0 
05 O002A2 


RMSRMS3 + 0000 


16 
b-Sep-19 
-Sep-19 


Ae 


AX-11 Bliss-32 V4.0-74 
RMS.SRCIRMSUPSIDX.B32; 


IRAB) 
(IRAB), BDB 
( 
P) 
ee 
IRAB), BDB 


IRAB) 
KILL_CUR, 31$ 


ls 


1 
8 
$ 
3 
0 
3 
( 
M 
4 


WD DAWA RD I Ww SO BOW 
NMNBwe wmonrn 
mam AYMON —: @ 
nw 


=(SP) 
RMSRLSBKT 
ERRSTATUS, RO 
#°M<R2,R3,R4> 


BeBe Se Se Oe Se Be Be Be Se Be Be Be Be Be Se Se Se Se Se Se Be Se Se Se Se Be Ge Se Se Be Ge Sa He Se Se Se Be Se 


Kk 16 
RM3UPS IDX 16-Sep-1984 02:10:55  VAX-11 Bliss-32 v4.0-74 - 9 
yoee00 RMSINS_IF _FIT er een Fhe FG:b8:22 FANS TL Bear ze Mt O50 age 3 


; 770 ¢ 1 ZSBITL ‘RMSINS_IF_FIT' 

: 46 Z ! GLOBAL ROUTINE RMSINS_IF_FIT : RLSINS_IF_FIT = 

: ae 5 1 I++ 

: 774 08 § 1! 

: of? o8 4 : FUNCTIONAL DESCRIPTION: 

s @7¢ 839 1! This routine inserts a SIDR or index record into the bucket 
; 778 0840 1! at the position pointed to by REC_ADDR and returns success if 
3 444 bees } } it fits else returns 0 to indicate a split is neccessary. 

; 781 Ose§ 1 !' CALLING SEQUENCE: 

: ree 44 1! RMSINS_IF_FIT( 

; 0845 1! 

3; «6784 0846 1 ! INPUT PARAMETERS 

; 785 0847 1! NONE 

; 786 0848 1! 

s 787 0849 1°! IMPLICIT INPUTS: ; 
; «788 0850 1! R Aj- if set use fill sizes to determine bucket size 
3; «789 0851 1! IRAB C DUPS_SEEN ] = set if duplicates seen meaning only continuation 
; 790 pe3¢ .s record is neccessary 

; «791 0855 1! BKT_ADDR - points to beginning of bucket 

: 79 0854 1! DX_DFN = pointer to index descriptor 

:; 79 0855 1! DATFILL ) - fill size for data buckets when fill percents used 
: 794 0856 1! FILL ] - ‘ n 

; 795 0857 1! DATBKTSZ J - size of data bkts in VBN's 

: 796 0858 1! IDXBKTSZ J] - i ** index ' 

: 797 0859 1! 

; 798 0860 1 ! OUTPUT PARAMETERS: 

; 799 0861 1! NONE 

; 800 st 9§ &. 

; 801 0865 1 ! IMPLICIT OUTPUTS: 

; 80 0864 1! NONE 

: 80 0865 1! 

3; 804 0866 1 ! ROUTINE VALUE: 

; 805 0867 1! NONE 

; 806 0868 1! 

; 807 0869 1 ! SIDE EFFECTS: 

; 808 0870 1! NONE 

; 809 0871 1! 

: 810 0872 1 !-- 

> 811 0873 1 

3 ai¢ 0874 BEGIN 

s Bi 8 75 

3; 64814 76 EXTERNAL REGISTER 

3; 815 0877 & 

; 816 878 

; 817 879 

; 818 0880 

; 819 0881 

; 820 bas 

; 821 88 

3 Ha 0884 

; 82 885 

; 824 88 

; 825 88 

; 826 0888 


seg” 


3 7 89 
3 ; 8 Hh 

3 9 3 
; 850 a 
3; «831 9 

; & ¢ ne 
: Be ne 
; 835 089 38 
; 836 0898 
; 837 0899 
; 838 900 

; 839 901 
; 840 090 

3; «841 090 

; 84 0904 
; «84 0905 
3 844 0906 
3; 845 0907 
; 846 0908 
: 847 0909 
; 848 0910 
; 849 0911 
: 850 Bale 
: 851 091 

; S26 0914 
; 85 0915 
3; 854 0916 
; 855 0917 
3; 856 0918 
s 857 0919 
; 858 0920 
; 859 0921 
:; 860 o356 
; 861 092 

; 86 0924 
: 86 0925 
3: 864 0926 
3; 865 0927 
; 866 0928 
; 867 0494 
; 868 0930 
: 869 0931 
; 870 336 
3; 871 93 

3; 87 934 
s 87 base 
3; 874 936 
; 875 0937 
; 876 0938 
3; 877 0939 
; 878 0940 
; 879 0941 
; 880 baeg 
3 +t bee 

; 2 944 
; 883 0945 


RMSINS_IF _FIT 


WANE BESS ES SWE WEAN BBB BPE EPA P EEE EPI wnonon 


Sep-19 755 
1ESeor1964 99:10:83 
this block is defined to Limit scope of BKT_ROOM 
BEGIN 


AX=-11 Bliss-32 V4.0-74 
RMS .SRCIRMSUPSIDX.B32; 


CAL 
END_BKT, 
BKT~ ROOM : SIGNED; 


! set up bucket size used to determine split based on whether this is 
! data or index level and whether fill percentages are used 


it -BKT_ADDRCBKT$B_LEVEL] EQL 0 
THEN 
BEGIN 
END_BKT = .BKT_ADDR + .IDX_DFNCIDX$B_DATBKTSZ)*512; 
4 eRABCAABOY_LOAL 
ms BKT_ROOM = .IDX_DFNCIDX$W_DATFILL3 
BKT_ROOM = .IDX_DFNCIDX$B_DATBKTSZ)*512; 
ELSE 
BEGIN 
END_BKT = .BKT_ADDR + .I1DX_DFNCIDX$B_IDXBKTSZ]*512; 
if eRABCRABSY LOA 
ns BKT_ROOM = .IDX_DFNCIDX$W_IDXFILLI 
a tO = .IDX_DFNCIDX$B_IDXBKTSZ)*512; 
Set up record size. 
REC _5Z = RMSRECORD_SIZE(); 


! Establish amount of room left in bucket with new record minus 1 byte for 
check byte at end of bucket 


if (.1FAB CIFB$B_PLG_VER] GEQU PLG$C_VER_3) 
(.BKT_ADDRCBKT$B_LEVEL] GTRU 0) 


BEGIN 
LOCAL 
VBN_FREE; 
VBN_FREE = .END BKT = BKTSC ENDOVHD: 
KT-ROOM = (VEN F FREE)<0,15> = .BKT_ADDR CeKT$y FREESPACE); 
BKT~ROOM = _ROOM - .REC_SZ<0.16>"= .REC_SZ <T6, 16>; 
ELSE 
BKT_ROOM = .BKT_ROOM - .REC_SZ - .BKT_ADDRCBKTSW_FREESPACE) - 1; 


roe 


M 16 
RM3UPS IDX 16-Sep-1984 02:10:55 AX-11 Bliss-32 V4.0-742 p 1 
V04~ RMSINS_IF FIT 12-360 1982 13:00:22 RMS .SRCJRM3UPSIDX.B32; 1 mint (3) 
: 884 94 IF .BKT_ROOM LSS 0 
: 885 309 
3 ee a8 RETURN 0; 
: 888 0950 IRABLIRBSW_POS_INS] = .REC_ADDR = .BKT_ADDR; ! set up for INS_REC 
; 889 0951 END; |! o oc det ining BRT_ROOM 
: 890 095¢ RETURN RMSINS_REC(.BKT_ADDR,~.REC_SZ); 
: 891 095 
: 892 0954 1 END; 
080C 8F BB 00000 RMSINS_IF_FIT:: 
POSHR #*M<R2,R3,R11> ; 0833 
0c AS 95 00004 TSTB = 12(BKT_ADDR) + 0901 
17 12 00007 BNEQ 1$ ; 
50 17 A? ‘9A 00009 MOVZBL 23(IDX_DFN), RO + 0904 
50 50 09 78 0000D ASHL #9, RO? RO : 
53 55 50 C1 00011 ADDL3 RO. BKT_ADDR, END_BKT : 
1D 05 Aa 05 a 00015 BBC : + 0906 
52 26 a7 3¢ 0001, MOV ZWL 38(1DX_DFN), BKT_ROOM > 0908 | 
50 16 AZ QA 90020 1$: MOVZBL 22(IDX_DFN), RO > 0914 
50 50 09 78 00024 ASHL , ROT R : 
53 55 50 C1 00028 ADDL3 RO, BKT_ADDR, END_BKT : 
06 05 AB 05 €1 0002C BBC * §(RAB) : 0916 
52 24 A? 3¢C 00031 MOVZWL 36(IDX_DFNS, BKT_ROOM : 0918 
03 11 00035 BRB 3$ F 
52 50 00 00037 28: MOVL RO, _BKT_ROOM + 0920 
00006 30 OOO3A 3$: BSBW RMERECORD_S1ZE : 0925 
03 00B7 CA 91 0003D CMPB =—s-s«183(IFAB)> # : 0930 
25 1F 00042 BLSSU : 
0c AS 95 00044 TSTB =: 12 (BK T_ADDR) : 0932 
20 13 00047 BEQL 4$ F 
51 FC AS. 9E 00049 MOVAB -4(R3), VBN_FREE : 0939 
32 61 3C 0004D MOVZWL (VBN_FREE), BKT_ROOM : 0940 
é 04 AS 3C 00050 MOVZWL 4(BKT j, : 
52 53 C2 00054 UBL2  R3, BRT_ : 
51 50 3¢ 00057 MOVZWL REC_SZ,~R1 + 0941 
51 52 51 C3 OO05A SUBL3._ _R1, BKT_ROOM, R1 : 
52 50 10 10 EF 00056 EXTZ2V #16, #18, REC_SZ, BKT_ROOM : 
52 51 52 C3 9006 SUBL3 BKT_ROOM, R1, BKT_ROOM ; 
OF 11 00067 BRB $ : 0930 
51 52 50 c3 90069 4$: SUBL3 REC_SZ, BKT_ROOM, R1 > 0944 
5 04 AS 3C 0006D MOVZ2WL 4(BRT_ADDR)> R3 ; 
51 53 ¢2 00071 SUBL2 : 
52 FF OAL OO 0007 MOVAB =1(R1), BKT_ROOM : 
11 19 00078 5S: BLSS > 0946 
48 A9 56 55 A3 O007A SUBW3 BKT_ADDR, REC_ADDR, 72(1RAB) : 0950 
20 DD 0007F PUSHL . : 0952 
5 pp 0081 PUSHL BKT-ADDR : 
00006 0 0083 BSBW  RMSINS_REC ; 
5E C 0086 ADDL2 #8, SP : 
11 0008 BRB 7$ F 
D4 0008B 68: CLRL = RO + 0954 


i 
RM3UPSIDX 18. Sep-1984 :10:55 AX-11 Bliss-32 V 7s 0-74 
ye 000 RMSINS_IF_FIT 1erep-18be 88ibfi22 HANS SePbasbursrbx bao, 


O80C = BF BA pg080 7$: 41% #*M<R2,R3,R11> 


; Routine Size: 146 bytes, Routine Base: RMS$RMS3 + 02A3 


; 893 0955 1 

> 894 0956 1 END 

> 895 0957 «#1 

; 896 0958 0 ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

:  RMSRMSZ 821 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

Prin. 2 ee me SL eee ee: OL aes Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CRMS.OBJIRMS.132;1 3109 80 2 154 00:00.4 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RM3UPSIDX/OBJ=OBJ$:RM3UPSIDX MSRC$:RM3UPSIDX/UPDATE=(ENH$:RMSUPSIDX) 


Size: 821 code + 0 data bytes 
Run Time: oY: 1.6 

Elapsed Time: 1: 

Lines/CPU Min: 188 

Locenes/CAU-Sie} 48 


Used: 563" pages 
— ation Complete 


| 
| 
| 
| 
| 


"DIGITAL EQUIPMENT CORPORATION | 
CONFIDENTIAL AND PROPRIETARY _ 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


929 AH-BT13A-SE 
Vol? VAX/VMS V4.0 


